www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_adminqq.asp
<!--#include file="conn.asp"--> <!--#include file="check.asp" --> <% select case request("action") case "" call main() case "dell" call dell() case "dellall" call dellall() end select %> <% sub main() Const PAGESIZE=20 Const PARTSIZE=10 url="" dim pagecount,page,Spage,Epage,recordcount,i page = request.querystring("page") if page = "" or IsNull(page) then page = 1 if not IsNumeric(page) then page = 1 page = Cint(page) set rs = server.CreateObject ("Adodb.recordset") sql="select * from tsm_qq where 1=1 "&wheres&" order by id desc" rs.open sql,conn,1,1 recordcount = RS.RecordCount RS.PageSize = PAGESIZE pagecount = RS.PageCount if page < 1 then page = 1 elseif page > pagecount then page = pagecount end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <link href="css.css" rel="stylesheet" type="text/css"> </head> <body> <script language="javascript"> function CheckAll(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; if (e.Name != "chkAll") e.checked = form.chkAll.checked; } } function selectSomeone( theForm ) //检查,列表中的信息是否有被选择的。return false,表没有被选择的。 { for (var i=0; i<theForm.elements.length; i++) { var e = theForm.elements[i]; if ( e.checked ) return true; } return false; } function Hello(){ if ( !selectSomeone( form3 )) { alert( "请您选中要操作的信息!"); return false; } else { if(confirm("提示:删除后不能恢复,确定删除选中的信息吗?")==true){ return (true); } return(false); } } </script> <!--#include file="top.htm" --> <br> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>信 息 管 理</b></font> <a href="Manage_modqq.asp?action=add"> </a></td> </tr> </table> <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#E3E3E3" class="text"> <tr bgcolor="#F6F6F6"> <td width="5%" align="center" height="25" bgcolor="#F6F6F6">选择</td> <td width="15%" align="center" height="25" bgcolor="#F6F6F6">帐号</td> <td width="15%" align="center" height="25" bgcolor="#F6F6F6">信息</td> <td width="20%" align="center" height="25" bgcolor="#F6F6F6">信息类别</td> <td width="10%" align="center" height="25" bgcolor="#F6F6F6">排序</td> <td width="5%" align="center" height="25" bgcolor="#F6F6F6">修改</td> <td width="5%" align="center" height="25" bgcolor="#F6F6F6" style="display:none">删除</td> </tr> <form method="post" action="?action=dellall" name="form3" OnSubmit="return Hello()"> <%if RS.EOF then Response.Write("<tr><td colspan=10 bgcolor=#FFFFFF><center><font color=red>目前还没有内容!</font></td></tr>") else if recordcount > 0 then RS.AbsolutePage = page for i = 1 to PAGESIZE if RS.EOF then exit for %> <tr bgcolor="#FFFFFF" onMouseOver="this.bgColor='#F6F6F6'" onMouseOut="this.bgColor='FFFFFF'"> <td height="20" align="center" valign="middle"><input type="checkbox" name="checkbox" value="<% = rs("id")%>"></td> <td height="20" align="center" valign="middle"><%=rs("Account")%></td> <td height="20" align="center" valign="middle"><%=JieQuZiFu(30,rs("title"))%></td> <td height="20" align="center" valign="middle"><%=rs("aname")%></td> <td height="20" align="center" valign="middle"><%= rs("paixu") %></td> <td align="center" valign="middle"><a href="Manage_modqq.asp?action=Modify&id=<%= rs("id")%>"><img src="img/edit.gif" width="12" height="12" border="0"></a></td> <td height="20" align="center" valign="middle" style="display:none"><a href="?action=dell&id=<%= rs("id") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除?删除数据将无法逆回!');"><img src="img/icon_del.gif" width="13" height="13" border="0"></a></td> </tr> <% RS.MoveNext() if RS.EOF then exit for next end if %> <tr valign="middle" bgcolor="#F7F7F7" style="display:none"> <td height="20" colspan="10"> <input type="checkbox" id="chkAll" name="chkAll" value="checkbox" onClick="CheckAll(this.form)"> 全选/取消全选 <input type="submit" name="Submit3" value="彻底删除"></td> </tr> </form> <tr align="center" valign="middle" bgcolor="#F7F7F7"> <td height="20" colspan="10"><!--#include file="page.asp"--></td> </tr> </table> </body> </html> <% end sub %> <% sub dell() id = Request("id") sql="delete from tsm_qq where id=" & id conn.execute sql response.Redirect("Manage_adminqq.asp") end sub %> <% sub dellall() checkbox=Request("Checkbox") s=split(checkbox,",") for i=0 to Ubound (s) sql="delete from tsm_qq where id = " & s(i) conn.execute sql next response.Redirect("Manage_adminqq.asp") end sub %>